home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / dlasy2.z / dlasy2
Text File  |  1996-03-14  |  4KB  |  133 lines
  1.  
  2.  
  3.  
  4. DDDDLLLLAAAASSSSYYYY2222((((3333FFFF))))                                                          DDDDLLLLAAAASSSSYYYY2222((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DLASY2 - solve for the N1 by N2 matrix X, 1 <= N1,N2 <= 2, in   op(TL)*X
  10.      + ISGN*X*op(TR) = SCALE*B,
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, LDTR, B,
  14.                         LDB, SCALE, X, LDX, XNORM, INFO )
  15.  
  16.          LOGICAL        LTRANL, LTRANR
  17.  
  18.          INTEGER        INFO, ISGN, LDB, LDTL, LDTR, LDX, N1, N2
  19.  
  20.          DOUBLE         PRECISION SCALE, XNORM
  21.  
  22.          DOUBLE         PRECISION B( LDB, * ), TL( LDTL, * ), TR( LDTR, * ),
  23.                         X( LDX, * )
  24.  
  25. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  26.      DLASY2 solves for the N1 by N2 matrix X, 1 <= N1,N2 <= 2, in
  27.  
  28.      where TL is N1 by N1, TR is N2 by N2, B is N1 by N2, and ISGN = 1 or -1.
  29.      op(T) = T or T', where T' denotes the transpose of T.
  30.  
  31.  
  32. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  33.      LTRANL  (input) LOGICAL
  34.              On entry, LTRANL specifies the op(TL):  = .FALSE., op(TL) = TL, =
  35.              .TRUE., op(TL) = TL'.
  36.  
  37.      LTRANR  (input) LOGICAL
  38.              On entry, LTRANR specifies the op(TR):  = .FALSE., op(TR) = TR, =
  39.              .TRUE., op(TR) = TR'.
  40.  
  41.      ISGN    (input) INTEGER
  42.              On entry, ISGN specifies the sign of the equation as described
  43.              before. ISGN may only be 1 or -1.
  44.  
  45.      N1      (input) INTEGER
  46.              On entry, N1 specifies the order of matrix TL.  N1 may only be 0,
  47.              1 or 2.
  48.  
  49.      N2      (input) INTEGER
  50.              On entry, N2 specifies the order of matrix TR.  N2 may only be 0,
  51.              1 or 2.
  52.  
  53.      TL      (input) DOUBLE PRECISION array, dimension (LDTL,2)
  54.              On entry, TL contains an N1 by N1 matrix.
  55.  
  56.      LDTL    (input) INTEGER
  57.              The leading dimension of the matrix TL. LDTL >= max(1,N1).
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. DDDDLLLLAAAASSSSYYYY2222((((3333FFFF))))                                                          DDDDLLLLAAAASSSSYYYY2222((((3333FFFF))))
  71.  
  72.  
  73.  
  74.      TR      (input) DOUBLE PRECISION array, dimension (LDTR,2)
  75.              On entry, TR contains an N2 by N2 matrix.
  76.  
  77.      LDTR    (input) INTEGER
  78.              The leading dimension of the matrix TR. LDTR >= max(1,N2).
  79.  
  80.      B       (input) DOUBLE PRECISION array, dimension (LDB,2)
  81.              On entry, the N1 by N2 matrix B contains the right-hand side of
  82.              the equation.
  83.  
  84.      LDB     (input) INTEGER
  85.              The leading dimension of the matrix B. LDB >= max(1,N1).
  86.  
  87.      SCALE   (output) DOUBLE PRECISION
  88.              On exit, SCALE contains the scale factor. SCALE is chosen less
  89.              than or equal to 1 to prevent the solution overflowing.
  90.  
  91.      X       (output) DOUBLE PRECISION array, dimension (LDX,2)
  92.              On exit, X contains the N1 by N2 solution.
  93.  
  94.      LDX     (input) INTEGER
  95.              The leading dimension of the matrix X. LDX >= max(1,N1).
  96.  
  97.      XNORM   (output) DOUBLE PRECISION
  98.              On exit, XNORM is the infinity-norm of the solution.
  99.  
  100.      INFO    (output) INTEGER
  101.              On exit, INFO is set to 0: successful exit.
  102.              1: TL and TR have too close eigenvalues, so TL or TR is perturbed
  103.              to get a nonsingular equation.  NOTE: In the interests of speed,
  104.              this routine does not check the inputs for errors.
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.